COMMAND  & CONTROL 
TECHNICAL  CENTER 


DgTMignMrsTATEMfm 

Appiov«d  ioi  public  i«]«« 
jPifitxibutiatt  OnUmt*^ 


iViij 

rT 

ri 

mm 

IjT; 

n 

1! 

1 

DEFENSE  COMMUNICATIONS  AGENCY 

COMMAND  AND  CONTROL 
TECHNICAL  CENTER 

WASHINGTON.  D.  C.  20301 


Director 

Defense  Documentation  Center 
Cameron  Station 
Alexandria,  Virginia  22314 


SUBJECT 


Forwarding  of  Worldwide  Data  Management  System 
(WWDMS)  Self  Instruction  Manual  — T-2  Version 
(Addendum  B) 


DCA  Ltr,  C422,  WWDMS  Self  Instruction 
Manual  — T-2  Version;  forwarding  of, 

18  Aug  76 

DCA  Ltr,  C422,  WWDMS  Self  Instruction  Manual 
T-2  Version  (Addendum  A);  forwarding  of, 

26  Oct  76 


1.  Four  copies  of  subject  addendum  dated  30  September  1977  are  forwarded 
herewith  for  processing  by  your  organization.  This  addendum  was  cleared 
for  open  publication  on  12  Dec  77  by  the  Directorate  for  Freedom  of 
Information  and  Security  review  (OASD-PA) , Department  of  Defense. 


2.  In  addition,  we  are  enclosing  a Report  Documentation  Page  (DD  Form 
1473)  and  a DDC  Accession  Notice  (DDC  Form  50)  pertaining  to  this 
manual. 


3.  Please  note  that  this  Is  an  addendum  to  the  WWDMS  Self  Instruction 
Manual  — T-2  Version  dated  26  July  1976  as  forwarded  to  you  by 
reference  (a) . The  Accession  Number  for  the  basic  manual  Is  AD- 
A028813.  Addendum  A was  forwarded  to  you  by  reference  (b)  and  was 
assigned  Accession  Number  AI>-A031655.  These  relationships  should  be 
preserved.  ~ 


FOR  'I'llE  UlKRC'iXJK 


BIRTRUN  S.  KIDWEIi,  JR. 
Colonel,  USA 

Deputy  Director  for  WWMCCS  ADP 


secuRvnrCLA 


NATION  OF  this  PACE  (irh*n  Dmim  Bnfrmd) 


P0»1  DOCUMENTATION  PAGE 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


3.  RECIPIENT'S  CATALOG  NUMBER 


N/A_ 1 

^ SubfifUj 

(gpildwide  Data  Management  System  (IWDMS)  Self 
rnstruction  Manual  — T-2  Version  (Addendum  B) 


7.  AUTHORfa; 


6.  PERFORMING  ORG.  REMRT  NUMBER 

PRC  Task  #606  \/ 


8.  CONTRACT  OR  GRANT  NUMBER^#; 


Ronald  A.  Kogan,  et.al. 


DCA100-73-C-0015 


8.  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 


PRC  Data  Services  Company 
7600  Old  Springhouse  Road 
McLean,  VA  22101 


It.  CONTROLLING  OFFICE  NAME  AND  ADDRESS 


10.  PROGRAM  ELEMENT.  PROJECT,  TASK 
AREA  ft  WORK  UNIT  NUMBERS 

PE,  32017K 
PROJECT:!  420300 
TASK:  4203Q3 


IZ.  REPORT  DATE 

30  Seo  77 


Defense  Communications  Agency 

Command  and  Control  Technical  Center  (C422)  M*-  number  of  pages 

Pentagon,  Washington,  D.C. I 63 


4.  MONITORING  AGENCY  NAME  ft  AOORESSCIf  dt/Zaranl  Irom  Controlling  Olllco)  IS.  SECURITY  CLASS,  (ol  thim  roport) 


Same  as  Block  11 


14.  distribution  STATEMENT  (ol  thIm  RaportJ 


Unclassified 


ISa.  OECLASSIFICATION/OOWNORADING 
SCHEDULE 


Approved  for  Public  Release : Distribution  Unlimited  ' 


17.  DISTRIBUTION  STATEMENT  (ol  Uia  abalrael  aniararf  In  Block  20,  II  dlllorml  Irom  Raport; 


{ •:A  ^ 


WBBSi 


It.  supplementary  notes 

The  basic  manual  is  based  upon  software  obtained  by  the  U.S.  Cksvernment  from 
Honeywell  Information  Systems  Inc.  in  support  of  the  Worldwide  Military  Com- 
mand and  Control  System  (WWMCCS) , This  reoort  covers  the  second  set  of  changes 
(Addendum  B)  to  the  manual. 


18.  KfcY  WORDS  fConllnua  on  rororaa  alda  II  nacaaaarr  antf  Idmntllr  ky  bloc*  numbarj 

WWDMS;  Worldwide  Data  Management  System;  WWMCCS;  Data  Management  Systems;  Self 
Instruction  Manual;  Data  Base  Management  Systems;  DBMS;  Honeywell  6000  Series 
Computer 


0.  AMTRACr  rCliRNm  Mvora*  at*  M imooioty  mig  Moatltr  hr  block  numbm) 

■^e  purpose  of  the  basic  self  instruction  manual  is  to  allow  a oerson  without 
prior  experience  in  programming  languages  or  data^  management  systems  to  learn 
to  use  the  Worldwide  Data  Management  System  (WWDMS)  as  implemented  on  the 
Honeywell  Series  6000  computer.  The  first  section  consists  of  elementary  con- 
cepts and  represents  a stand-alone  elementary  user's  self  instruction  manual. 
The  second  section  contains  advanced  concepts,  and  when  used  in  conjunction 
with  the  first  section,  comprises  a complete  advanced  WWDMS  user's  self  in- 
struction manual.  ^ 


DO  tu 


EOlTIOIftOF  • NOV  48  IS  OaSOLETE 


Unclassified 

security  classification  of  TNIS  page  fWft«,i  Data  BnlaraV) 


COMMAND  & CONTROL 
TECHNICAL^ENpER 


rrTi.H  d\iv:v 


if.MKhT  A 


i Approved  ici  public  tolaoMl 
I Distribution  Unlimit«(| 


WORLDWIDE 

DATA  MANAGEMENT  SYSTEM 


SELF  JNSTRUenON  MANUAL 
' T-2  VERSION. 


TIONS 


AGENCY 


COLLATING  INSTRUCTIONS 


To  incorporate  Addendum  B changes  into  the  T-2  SIM,  remove  old  pages 
and  replace  with  corresponding  new  pages  as  indicated  below. 

REMOVE  REPLACE  WITH 

Title  Page 

xiii/xv 
20-1 

I-1/I-16 


Title  Page 
Record  of  changes 
xiii/xv 
20-1/20-42 
I-1/I-17 


CONTENTS  (Continued) 


Lesson 


20  QUERY  PROCEDURES  20-1 

Default  APPLICATION  WEFINITION  20-2 

QUERY  Statement 20-8 

Conditional  Expression  20-13 

PRINT  Statement 20-15 

END  Statement 20-19 

REPORT  Statement  20-20 

PRINT  Label  Statement 20-21 

PRINT  Report-Name  Statement  20-21 

LINE  Statement 20-23 

SPACE  Statement 20-25 

SORT  Statement 20-25 

SORT  ON...  Statement 20-32 

SORT  Report-Name  ON...  Statement  20-32 

SORT  Identifier  ON...  Statement  20-33 

COPY  Statement 20-33 

LET  Statement 20-34 

LIBRARY  Statement 20-36 

OPTIONS  ARE  Statement  20-37 

21  DIRECT  ACCESS  PROCEDURES  21-1 

RUNP  Command 21-1 

WWDMS  Terminal  Executive  Batch  Processor  (DMTEX)  . . . 21-2 

PRINT/REPORT  ON  DAC  Options 21-3 

ACCEPT  Statement  21-4 

DISPLAY  Statement  21-6 


Addendum  B 


xiii 


CONTENTS  (Continued) 


1 

I 


i 


i 

t 

t 

i 

I 

1 


j 


Lesson 

Number  Page 


22  MISCELLANEOUS  PROCEDURE  CONCEPTS  22-1 

Parameterized  Procedures  . ! ! T 22-1 

Source  Parameters  22-1 

Object  Parameters  22-6 

Run-time  Options  22-9 

RUN  Command  Options 22-9 

OPTIONS  ARE  Statement  22-14 

COPY  Statement  .....  22-15 

KEEP/RETRIEVE ...  SUBSET  STATEMENTS 22-16 

HOLD  Statement 22-18 

DIRECT  Statement 22-20 


23  DATA  FILE  CREATION 23-1 

CREATE  Statement  23-1 

PLACE  Clause 23-2 

EQUATE  Clause  23-3 

INHIBIT  Clause  23-3 

Transaction  Reject  File  23-5 

Create  Errors  23-6 

Out-of-sequence  Errors  23-6 

Check  Errors 23-6 

Implicit  CREATE  Procedures  23-11 

STORE  Statement 23-13 

REJECT  Statement  23-14 

WHEN... TRANSACTION  SEQUENCE  ERROR  Statement  23-14 

WHEN... CHECK  ERROR  Statement  23-15 

WHEN. . .REJECT  ERROR  Statement  23-16 

AUDIT 23-17 

TEST  Option 23-18 

24  DATA  FILE  MAINTElUiNCT 24-1 

Advantages  and  Disadvantages  to  WWDMS 

Procedure  Maintenance  24-1 

UPDATE  Statement  24-2 

MATCH  Clause 24-4 

WHERE/WITH  Clause  24-4 

EQUATE  Clause  24-4 

INHIBIT  Clause  24-5 

AUDIT  Clause 24-5 

Transaction  Reject  File  24-9 

Implicit  UPDATE  Procedures  24-10 

UPDATE  Errors  24-11 

Explicit  UPDATE  Procedures  24-13 

WHEN... ENTRY  Statement  24-14 


Addendum  B 


XIV 


CONTENTS  (Continued) 


Lesson 

Number  Page 

WHEN. . .MATCHED  Statement '27=14 

WHEN. . .UNMATCHED  TRANSACTION  Statement  24-14 

WHEN. . .UNMATCHED  MASTER  Statement  24-14 

WHEN... END  OF  TRANSACTION  FILE  Statement  24-15 

WHEN... END  OF  MASTER  FILE  Statement  24-15 

WHEN. . .TRANSACTION  SEQUENCE  ERROR  Statement  24-15 

WHEN. . .MASTER  SEQUENCE  ERROR  Statement  24-15 

WHEN... CHECK  ERROR  Statement  24-15 

WHEN. . .REJECT  ERROR  Statement  24-15 

DELETE  Statement  24-16 

INSERT  Statement 24-16 

RESTORE  Statement  24-17 

STORE  Statement 24-17 

REJECT  Statement  24-17 

TEST  Option 24-20 

UPDATE. . .CREATING  Statement  24-21 

RETRIEVE. . .FOR  UPDATE  Statement  24-24 

IDS  File  Maintenance 24-30 

Record  Deletion  24-30 

Data  Field  Modification  24-33 

Chain  Linkage  Modification  24-33 

Control  Field  Modification  24-35 

New  Record  Insertion  24-36 

WWms  Maintenance  Capabilities 24-37 

25  WWDMS  SUPPORT  SUBSYSTEMS  25-1 

WJTOT T 25-1 

DFAULT 25-4 

WWLI 25-5 

WWDIRUPD 25-7 

PERFORM 25-9 

APPENDIXES 

A.  WWDMS  BASIC  COMMAND  LANGUAGE  (WWBCL)  A-1 


B.  WWDMS  INTERFACE  SOFTWARE  PACKAGE  (WISP)  B-1 


C.  DATA  FILE  STRUCTURES C-1 

Sequential  Files  . T C-1 

Indexed-Sequential  Processor  (iSP)  Files  C-3 

Inverted  Files  C-7 

Integrated  Data  Store  (IDS)  Files  C-8 


Addendum  B 


XV 


CONTENTS  (Continued) 


Lesson 

Nuaber  Page 

nr  USER  ROUTINE  LIBRAKY  CltEi>TIOH "TFT 

Systesi  Loadable  Pil  es D-1 

User  Routine  Library  Structure  D-1 

User  Subroutines/Functions  D-7 

PERFORM  subsystea  LIBRARY  prograsi  D-11 

User  Table  Lookup  Routines  D-2S 

PERFORM  subsystem  VMTLU  program  D-30 

WWLI D-33 

I.  INDEX I-l 


Addendum  B 


xvi 


LESSON  20 
QUERY  PROCEDURES 


20-1.  The  QUERY  Procedure  Language  is  a subset  of  the  WV/DMS  Pro- 
cedure Language.  It  is  a simple  set  of  statements  that  al- 
lows a user  to  create  a detailed  output  report  without  having 
to  write  a complex  procedure  to  retrieve  any  necessary  data 
items.  Merely  specifying  data  items  that  will  be  used  in  the 
generation  of  an  output  report  will  result  in  automatic  re- 
trieval of  any  required  logical  records  from  a data  base. 

The  concept  of  entries  containing  selected  data  elements  from 
a number  of  logical  records  does  not  apply  to  a QUERY 
procedure. 


20-2.  There  are  a number  of  conceptual  differences  between  QUERY 
and  WVnMS  procedures.  They  are  as  follows: 

• Entry  names  are  not  valid  within  the  syntax  of  the 
QUERY  Procedure  Language.  The  QUERY  statement 
specifies  an  Application  Definition  File  (ADF)  in 
its  syntax.  A QUERY  procedure  containing  data 
items  that  comprise  an  output  report  will  cause  the 
specified  ADF  to  be  searched  in  an  attempt  to  as- 
sociate the  requested  data  items  with  existing 
entries.  These  entries  will  be  automatically  re- 
trieved in  an  operation  that  is  transparent  to  the 
user. 

• The  data  items  specified  in  a QUERY  procedure  must 
be  contained  in  the  same  data  base.  Any 
COORDINATED  ENTRIES  in  an  ADF  may  not  be  used  in  a 
QUERY  procedure. 

• Items  referenced  in  a QUERY  procedure  cannot  be 
subscripted. 

• The  only  labels  allowed  within  a QUERY  procedure 
are  renort-packet-labels  (LINE  and  SPACE  statement 
labels).  Event  labels,  Routine  labels,  and  Proce- 
dure Control  labels  are  all  illegal. 
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only  statements 

allowed  in  a 

QUERY  procedure 

COPY 

LINE 

REMARK 

END 

OPTIONS  ARE 

REPORT 

LET 

PRINT 

SORT 

LIBRARY 

QUERY 

SPACE 

These  statements,  although  functionally  similar  to 
their  WWDMS  procedure  counterparts,  may  be  syntac- 
tically unique  in  a QUERY  procedure. 


20-3.  It  is  appropriate  to  introduce  a new  concept  at  this  time. 

In  Lessons  8 and  9 you  were  introduced  to  the  Data  Definition 
File,  the  Application  Definition  File,  and  the  relationship 
between  entries  in  the  ADF  and  logical  records  in  the  DDF. 

It  was  shown  how  a number  of  entries  could  be  defined,  each 
containing  a number  of  combinations  of  logical  records. 

In  Frame  20-2,  you  were  told  that  a QUERY  procedure  does  not 
reference  entries,  but  data  elements.  The  WWDMS  processor 
automatically  matches  these  data  items  to  appropriate  entries 
in  the  ADF  referenced  by  a QUERY  procedure.  A problem  may 
arise  if  many  entries  exist  that  contain  the  same  logical 
record.  WWDMS  will  not  know  which  entry  to  use  to  retrieve  a 
required  logical  record. 


20-4.  With  certain  kinds  of  data  base  structures,  this  problem  can 
be  easily  avoided  by  using  a Default  Application  Definition 
File  in  your  QUERY  procedure  re ference . A Default  ADF  is 
created  by  the  Data  Base  Administrator  using  a special  batch 
routine.  This  routine  is  given  a Directory  File  as  input, 
from  which  it  extracts  information  contained  in  the  associ- 
ated object  DDF.  It  creates  a source  ADF  from  the  DDF,  and 
then  passes  this  source  to  the  normal  ADFXLT  program  for  a 
source-to-ob jec t translation. 

The  Default  ADF  is  created  using  the  following  rules: 

1.  An  entry  is  created  for  every  record  in  the  DDF.  Each 
of  these  entries  contains  one  and  only  one  logical  re- 
cord. The  entry-name  is  the  same  as  the  logical  record 
name . 

For  example,  the  logical  record 
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01  PERSON-REC 

;TYPE  IS  "A"  IN  TYPE-FIELD 
;RETRIEVAL  VIA  SCAN. 

results  in  an  entry 

ENTRY  PERSON-REC  IS  RECORD  PERSON-REC 

2.  Every  item  in  the  logical  record  definition  is  included 
in  the  entry  definition  (i.e.,  there  is  no  ITEMS  ARE: 
clause  in  a default  ADF) 

3.  Entry  access  paths  are  determined  by  the  prime  retrieval 
path  (given  by  the  RETRIEVAL  VIA  clause  in  a 01-level 
definition)  of  the  logical  record  comprising  the  entry. 
Entries  are  created  as  Primary  and  Thru  entries  accord- 
ingly. Thus  a partial  DDF  of 

01  REC-A 

; TYPE  IS  "A"  IN  TYPE-FIELD 
; RETRIEVAL  VIA  SCAN. 

98  A-B  MASTER 
01  REC-B 

; TYPE  IS  "B"  IN  TYPE-FIELD 
; RETRIEVAL  VIA  A-B. 

98  A-B  DETAIL 

would  result  in  entry  definitions 

ENTRY  REC-A  IS  RECORD  REC-A 
ENTRY  REC-B  IS  RECORD  REC-B 
THRU  REC-A 

In  addition,  logical  records  in  an  ISP  or  Inverted  file 
' .ed  with  a RETRIEVAL  VIA  SEARCH  clause,  and  IPS  log- 
ical records  defined  with  a RETRIEVAL  VIA  CALC  CHAIN 
clause,  will  result  in  entries  defined  as  VIA  SEARCH. 
Thus,  ISP,  Inverted,  and  IDS  calculating  values  do  not 
have  to  be  supplied  when  these  entries  are  extracted 
from  the  data  file. 


20-5.  The  simplicity  of  the  Default  ADF  approach  is  obvious.  A 
data  item  exists  in  one  and  only  one  entry.  The  retrieval 
path  to  that  entry  is  uniquely  constructed  from  the  prime 
retrieval  path  for  the  single  record  comprising  the  entry. 
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Thus,  a data  item  called  for  in  a QUERY  procedure  can  be  ac- 
cessed in  one  and  only  one  way  using  a default  ADF.  All  con- 
flicting retrieval  paths  to  the  logical  record  containing  the 
data  item  are  ignored. 


20-6.  The  Default  ADF  approach  is  well-tailored  to  data  base  struc- 
tures for  which  the  following  conditions  hold  true: 

1.  The  structure  is  hierarchical  (as  opposed  to  network)  in 
nature. 

2.  Only  those  records  whl^ch  are  at  the  top  of  a hierarchy 
(i.e.,  those  that  are  not  details  of  any  set)  are  de- 
fined in  the  DDF  with  a RETRIEVAL  VIA  SCAN,  RETRIEVAL 
VIA  SEARCH,  or  RETRIEVAL  VIA  CALC  clause.  All  others 
are  defined  with  RETRIEVAL  VIA  chain-name. 


If  either  or  both  of  these  conditions  does  not  hold  true,  a 
default  ADF  may  not  necessarily  be  the  best  ADF  to  use  for  a 
particular  application.  This  is  especially  critical  when 
dealing  with  IDS  structures.  For  example,  note  the  following 
IDS  structure  used  to  track  software  incidents. 


I 
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In  this  file,  data  processing  incidents  are  logged  by  major 
computer  subsystems,  by  computer  installation  that  encoun- 
tered the  problem,  and  by  incident  identification.  The  in- 
tention is  that  incident  records  are  to  be  accessed  by  one  of 
the  following  methods : 

a Supply  an  incident  identification  value  and  CALC 
directly  to  that  incident  record; 

a Supply  a software  subsystem  name  (e.g.  FORTRAN)  and 
walk  the  SYSTEM  chain,  retrieving  all  or  only  cer- 
tain related  INCIDENT  record  instances; 

a Supply  the  designation  for  a particular  computer 
installation,  and  walk  the  SITE  chain,  retrieving 
some  or  all  of  the  incident  records  generated  by 
that  site. 

The  following  entries  will  be  generated  by  the  default  ADF 
generation  program  (records  SOFTWARE-SUBSYSTEM,  SUBMITTING- 
SITE,  and  SOFTWARE-INCIDENT-RECORD  are  CALC  records): 

ENTRY  SOFTWARE-SUBSYSTEM  IS  RECORD 
SOFTWARE-SUBSYSTEM  VIA  SEARCH 
ENTRY  SUBMITTING-SITE  IS  RECORD 
SUBMITTING-SITE  VIA  SEARCH 
ENTRY  SOFTWARE-INCIDENT-RECORD  IS  RECORD 
SOFTWARE-INCIDENT-RECORD  VIA  SEARCH 
ENTRY  INCIDENT-DESCRIPTION  IS  RECORD 
INCIDENT-DESCRIPTION  THRU 
SOFTWARE-INCIDENT-RECORD 

This  default  ADF  works  fine  if  we  are  interested  in  either 
retrieving  a specific  incident  record,  or  retrieving  some  or 
all  incident  records  without  regard  to  the  master  SOFTWARE- 
SUBSYSTEM  or  SUBMITTING-SITE  records,  since  VIA  SEARCH 
represents  the  access  path  to  the  SOFTWARE-INCIDENT-RECORD 
records . 

If,  however,  instances  of  both  the  SOFTWARE-SUBSYSTEM  and 
SOFTWARE-INCIDENT-RECORD  records  were  desired,  there  would  be 
no  way  to  guarantee  that  these  instances  would  be  related  to 
one  another.  The  same  would  be  true  if  it  were  desired  to 
process  instances  of  both  the  SUBMITTING-SITE  and  SOFTWARE- 
INCIDENT-RECORD  records. 

The  best  way  that  the  Data  Base  Administrator  could  insure 
that  all  three  methods  of  retrieval  of  the  SOFTWARE- 
INCIDENT-RECORD  record  would  still  be  available  would  be  to 


Addendum  B 


20-5 


1 


supply  multiple  ADFs  to  access  the  data  base.  Each  user 
could  then  choose  from  among  the  available  ADFs  the  one  best 
adapted  to  his  particular  application. 

For  example,  the  DBA  could  provide: 

1.  A default  ADF,  suitable  for  retrieving  SOFTWARE- 
INCIDENT-RECORD  records  without  regard  to  master 
SOFTWARE-SUBSYSTEM  or  SUBMITTING-SITE  records. 

2.  An  ADF  suitable  for  retrieving  each  SOFTWARE-INCIDENT- 
RECORD  record  associated  with  a given  SOFTWARE-SUBSYSTEM 
record,  and  then  retrieving  the  master  SUBMITTING-SITE 
record  associated  with  the  SOFTWARE-INCIDENT-RECORD 
record.  The  following  ADF  would  accomplish  this  purpose: 


ENTRY  SOFTWARE-SUBSYSTEM  IS  RECORD 
SOFTWARE-SUBSYSTEM  VIA  SEARCH 
ENTRY  INCIDENT-AND-SITE  IS  RECORD 

SOFTWARE-INCIDENT-RECORD  THRU 
SOFTWARE-SUBSYSTEM  VIA  SYSTEM 
AND  SUBMITTING-SITE  VIA  SITE 


I 

I 

f 

i 

I 
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3. 


An  ADF  suitable  for  retrieving  each  SOFTWARE-INCIDENT- 
RECORD  record  associated  with  a given  SUBMITTING-SITE 
record,  and  then  retrievitig  the  master  SOFTWARE- 
SUBSYSTEM  record  associated  with  the  SOFTWARE- I NCI DENT- 
RECORD  record. 


20-7.  Default  ADFs  are,  in  general,  not  very  useful  for  accessing 
IDS  data  bases,  even  those  that  are  hierarchical  in  struc- 
ture. Recall  that  records  defined  with  a RETRIEVAL  VIA  CALC 
clause  in  the  DDF  result  in  entries  defined  as  VIA  SEARCH. 
While  this  definition  may  have  some  useful  applications,  it 
can  also  work  as  a major  drawback  leading  to  gross  inef- 
ficiency. To  see  why  this  is  true,  note  the  following 
structure . 


I 
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There  is  exactly  one  SITE-ENTRY  record  in  the  data  base  and 
it  is  accessed  by  CALCing  in  on  the  value  "SITES".  The  sole 
purpose  of  this  record  is  to  allow  the  user  to  retrieve  all 
of  the  SITE  records  in  logical  order  simply  by  walking  a 
chain  (the  ENTRY-SITE  chain).  The  following  ADF  entry  pro- 
vides a means  for  accomplishing  this  using  VfWDMS: 

ENTRY  SITE  IS  RECORD  SITE-ENTRY  VIA  CALC 
AND  RECORD  SITE  VIA  ENTRY-SITE 

Note,  however,  what  would  happen  if  we  were  to  attempt  to  re- 
trieve all  of  the  SITE  records  using  the  following  default 
ADF  entries. 

ENTRY  SITE-ENTRY  IS  RECORD 
SITE-ENTRY  VIA  SEARCH 

ENTRY  SITE  IS  RECORD  SITE  VIA  SEARCH 

Note  that  the  ENTRY-SITE  chain  is  ignored  in  the  default  ADF, 
since  VIA  SEARCH,  not  VIA  ENTRY-SITE,  represents  the  access 
path  to  the  SITE  record.  In  order  to  retrieve  all  of  the 
SITE  records,  VIWDMS  must  search  every  page  of  the  data  file 
for  SITE  records.  Not  only  is  this  extremely  inefficient, 
but  the  SITE  records  would  be  retrieved  according  to  their 
physical  order  in  the  data  file,  which  may  not  correspond  at 
all  to  their  logical  order . 


20-8.  TRUE  or  FALSE: 

Standard  (non-default)  ADFs  should  not  be  used  in  a QUERY 
procedure 

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 
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FALSE.  Standard  (non-default)  ADFs  can  be  used  if  no 
record  retrieval  conflicts  will  result. 


20-9.  The  remainder  of  this  lesson  will  be  devoted  to  a discussion 
of  the  various  statements  that  may  be  found  in  a QUERY  pro- 
cedure. Each  statement  will  be  presented,  and  its  syntax  and 
function  compared  with  its  VfWDMS  procedure  counterpart.  Ex- 
amples of  use  will  be  presented  as  well. 

To  illustrate  the  concepts  presented  in  the  remainder  of  this 
lesson,  the  following  data  base  is  presented.  It  is  the  en- 
hanced COMPANY-STRUCTURE  data  base  presented  in  Lesson  12, 
further  enhanced  as  follows:  the  data  base  now  recognizes 
two  types  of  subordinate  personnel:  clerical  and  technical. 
Accordingly,  the  SUBORDINATE-PERSONNEL-REC  record  has  been 
replaced  with  two  logical  records:  CLERICAL-PERSONNEL-REC 
and  TECHNICAL-PERSONNEL- REC. 

Illustration  20.1  contains  the  new  Data  Definition  File,  and 
a graphic  diagram  of  the  data  structure  is  shown  in  Illustra- 
tion 20.2.  The  Application  Definition  File  defined  for  the 
data  base  is  contained  in  Illustration  20.3  (its  object  is  in 
file  PRC606/COMPADFO). 


20-10.  QUERY  statement. 

The  QUERY  statement  identifies  a procedure  as  a QUERY  pro- 
cedure. It  identifies  an  Application  Definition  File  con- 
taining a user's  view  of  the  data  base,  and  any  selection 
criteria  that  determine  which  data  item  instances  will  be 
retrieved. 


The  format  of  a QUERY  statement  is  as  follows: 


QUERY 


/VniERE  \ 

[catalog/ file-8tring][<-^J^^  ^ompound-conditionalj 


The  QUERY  statement  must  be  the  first  statement  in  a QUERY 
procedure. 


20-11.  The  optional  catalog/file-string  immediately  following  the 
word  QUERY  is  the  catalog/ file-string  of  an  object  ADF.  If 
not  used  then  a default  ADF  (assigned  by  the  Data  Base  Admin- 
istrator via  the  User  Profile  System)  will  be  used. 
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i 


i 


■1  !► 


000010 

MD  COMPANY-FILE;  FILE  IS  SEQUENTIAL. 

000020 

01  COMPANY-REC 

000030 

;TYPE  IS  "101"  IN  COMPANY-TYPE 

000040 

;RETRIEVAL  VIA  SCAN. 

000030 

02 

COMPANY-SEQUENCE -FIELD . 

000060 

03 

COMP-SITE-NO 

PIC 

999. 

000070 

03 

CODE-101 

PIC 

X. 

000080 

03 

CODE-102 

PIC 

X. 

000090 

03 

CODE- 103 

PIC 

X. 

000100 

02 

COMPANY-TYPE 

PIC  XXX. 

000110 

02 

COMPANY-NAME 

PIC  X(25). 

000120 

02 

COMPANY-INITIALS 

PIC  XXX. 

000130 

02 

PRESIDENT 

PIC  X(20). 

000140 

02 

HEADQUARTERS-ADDRESS . 

000150 

03 

STREET -ADDRESS . 

000160 

04  NUMBER 

PIC  9(5). 

000170 

04  STREET-NAME 

PIC  X(20). 

000180 

03 

CITY-STATE-ADDRESS . 

000190 

04  CITY-STATE. 

000200 

05  CITY 

PIC  X(15). 

000210 

05  STATE 

PIC  XX. 

000220 

04  ZIP-CODE 

PIC  9(5). 

000230 

98  SYSTEM  DETAIL  ; SCAN  ON  COMPANY-SEQUENCE-FIELD. 

000240 

98  COMPANY-SITE  MASTER  ; ORDER  IS  SORTED. 

0002"'' 

01  SITE-REC 

000260 

;TYPE  IS  "201"  IN  SITE-TYPE 

000270 

; RETRIEVAL  VIAL  SCAN. 

000280 

02 

SITE-SEQUENCE-FIELD. 

000290 

03 

SITE -SITE-NO 

PIC 

999. 

000300 

03 

CODE-201 

PIC 

X. 

000310 

03 

CODE-202 

PIC 

X. 

000320 

03 

CODE-203 

PIC 

X. 

000330 

02 

SITE-TYPE 

PIC  XXX. 

000340 

02 

SITE-DESIGNATION 

PIC  X(25). 

000350 

02 

SITE-NUMBER 

PIC  999. 

000360 

02 

SITE-MANAGER 

PIC  X(20). 

000370 

02 

SITE-LOCATION. 

000380 

03 

SITE-STREET 

PIC 

X(25). 

000390 

03 

SITE-CITY-STATE 

PIC 

X(22). 

000400 

98  SYSTEM  DETAIL;  SCAN  ON  SITE-SEQUENCE-FIELD. 

000410 

98  COMPANY-SITE  DETAIL 

000420 

;ASCENDING  KEY  IS  SITK-SEQUENCE-FIELD. 

000430 

98  SITE-PERSONNEL  MASTER;  ORDER  IS  SORTED. 

000460 

01  SUPERVISORY-PERSONNBL-REC 

000470 

;TYPE  IS  "301"  IN  SUPER-TYPE 

000480 

;RETRIEVAL  VIA  SITE-PERSONNEL. 

000490 

02 

SUPERVISOR-SEQUENCE-FIELD . 

000500 

03 

SUPER-SITE-NO 

PIC 

999. 

000510 

03 

CODE-301 

PIC 

X. 

000520 

03 

CODE-302 

PIC 

X. 

llluicration  20.1  Data  Definition  Source  File 
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000330 

03 

CODE-303 

PIC  X. 

000540 

02 

SUPER-TYPE 

PIC  XXX. 

000530 

02 

SUPERVISOR-NAME 

PIC  X(30). 

000560 

02 

SUPER-SOCIAL-SECURITY-NO 

PIC  X(ll). 

000570 

02 

SUPERVISOR-HOME -ADDRESS . 

PIC  X(25) 

000580 

03 

SUPER-STREET 

000590 

03 

SUPER-CITY-STATE 

PIC  X(22) 

000600 

02 

SUPERVISOR-HOME-PHONE . 

000610 

03 

SUPER-AREA -CODE 

PIC  999. 

000620 

03 

SUPER-PHONE-NUMBER 

PIC  9(7). 

000630 

02 

DATE-SUPER-ENTERED-COMPANY 

PIC  9(6). 

000640 

02 

DATE-CURRENT-POSITION-SUPER 

PIC  9(6). 

000650 

98  SITE-PERSONNEL  DETAIL 

000660 

;ASCENDING  KEY  IS  SUPERVISOR-SEQUENCE-FIELD. 

000670 

98  BOSS-WORKER  MASTER;  ORDER  IS  SORTED. 

000680 

01  CLERICAL-PERSONNEL-REC 

000690 

;TYPE  IS  "401"  IN  CLER-TYPE 

000700 

;RETRIEVAL  VIA  BOSS-WORKER. 

000710 

02 

CLERICAL-SEQUENCE-FIELD . 

000720 

03 

cu:r-site-no 

PIC  999. 

000730 

03 

CODE -40 lA 

PIC  X. 

000740 

03 

CODE-401B 

PIC  X 

000750 

03 

CODE-401C 

PIC  X 

000760 

02 

CLER-TYPE 

PIC  XXX. 

000770 

02 

CLERICAL-NAME 

PIC  X(30). 

000780 

02 

CLERICAL-SOCIAL-SECURITY-NO 

PIC  X(1I). 

000790 

02 

CLERICAL-HOME -ADDRESS . 

000800 

03 

CLERICAL-STREET 

PIC  X(25) 

000810 

03 

CLERICAL-CITY-STATE 

PIC  X(22) 

000820 

02 

CLERICAL-HOME-PHONE . 

000830 

03 

CLERICAL-AREA-CODE 

PIC  999. 

000840 

03 

CLERICAL-PHONE-NUMBER 

PIC  9(7). 

000850 

02 

DATE-CLERICAL-ENTERED-COMPANY 

PIC  9(6). 

000860 

02 

CLERICAL-WAGE-INFO . 

000870 

03 

CURRENT-HOURLY-WAGE 

PIC  99V99 

000880 

03 

PREVIOUS-HOURLY-WAGE 

PIC  99V99 

000890 

02 

CLERICAL-SKILL-INFO . 

000900 

03 

SHORTHAND-SPEED-WPM 

PIC  999. 

000910 

03 

TYPING-SPEED-WPM 

PIC  999. 

000920 

98  BOSS-WORKER  DETAIL 

000930 

;ASCENDING  KEY  IS  CLERICAL-SEQUENCE 

-FIELD. 

000940 

01  TECHNICAL-PERSONNEL-REC 

000950 

;TYPE  IS  "402"  IN  TECH-TYPE 

000960 

; RETRIEVAL  VIA  BOSS-WORKER. 

000970 

02 

TECHNICAL-SEQUENCE-FIELD . 

000980 

03 

TECH-SITE-NO 

PIC  999. 

000990 

03 

CODE-402A 

PIC  X. 

001000 

03 

CODE-402B 

PIC  X.  , 

001010 

03 

CODE-402C 

PIC  X. 

001020 

02 

TECH-TYPE 

PIC  XXX. 

Illustration  20.1  (Continued) 
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001030 

02 

TECHNICAL-NAME 

PIC  X(30). 

001040 

02 

TECHNICAL -SOCIAL-SECURITY-NO 

PIC  X(ll). 

001050 

02 

TECHNICAL-HOME-ADDRESS . 

001060 

03 

TECHN ICAL-STREET 

PIC  X(25) 

001070 

03 

TECHNICAL-CITY-STATE 

PIC  X(22) 

001080 

02 

TECHNICAL-HOME -PHONE . 

001090 

03 

TECHNICAL-AREA-CODE 

PIC 

999. 

001100 

03 

TECHNICAL-PHONE-NUMBER 

PIC  9(7). 

001110 

02 

DATE-TECHNICAL-ENTERED-COMPANY 

PIC  9(6). 

001120 

02 

DATE-CURRENT-ASSIGNMENT 

PIC  9(6). 

001130 

02 

TECHNICAL-WAGE-INPO , 

9(4). 

001140 

03 

CURRENT-MONTHLY-WAGE 

PIC 

001150 

03 

PREV lOUS-MONTHLY-WAGE 

PIC 

9(4). 

001160 

02 

TECHNICAL-SKILL-INFO. 

001170 

03 

SKILL-CODE 

PIC 

99. 

001180 

03 

NUMBER-OF-YEARS-OF-SKILL 

PIC 

99. 

001190 

03 

DATE -COMPUTED 

PIC 

9(6). 

001200 

03 

SKILL-LEVEL-CODE 

PIC 

X. 

001210 

98  BOSS-WORKER  DETAIL 

001220 

;ASCENDING  KEY  IS  TECHNICAL-SEQUENCE- 

-FIELD. 

Illustration  20.1  (Continued) 
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BOSS-WORKER 

SET 


Illustration  20.2  Data  Base  Structure  Graph 
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DATA-BASE  IS  COMPANY-STRUCTURE  IN  PRC606/COMP-DIR 
ENTRY  COMPANY  IS  RECORD  COMPANY-REC 
ENTRY  SITE  IS  RECORD  SITE-REC 

THRU  COMPANY  VIA  COMPANY-SITE 
ENTRY  SUPERVISOR  IS  RECORD  SUPERVISORY-PERSONNEL-REC 
THRU  SITE 

ENTRY  CLERICAL-EMPLOYEE 

IS  RECORD  CLERICAL-PERSONNEL-REC 
THRU  SUPERVISOR 
ENTRY  TECHNICAL -EMPLOYEE 

IS  RECORD  TECHNICAL-PERSONNEL-REC 
THRU  SUPERVISOR 


Illustration  20.3.  Application  Definition  Source  File 


The  optional  conditional  expression  functions  similarly  to  a 
RETRIEVE  statement  conditional  expression.  It  "selects"  in- 
stances of  retrieved  items  for  processing  from  the  total  set 
of  retrieved  instances. 

Data  items  used  in  a QUERY  statement  conditional  clause  must 
either: 

1.  Appear  explicitly  in  the  procedure's  LINE,  SORT,  LET, 
and  PRINT  statements,  or 

2.  Be  contained  in  those  records  which  contain  items  which 
appear  explicitly  in  the  procedure's  LINE,  SORT,  LET, 
and  PRINT  statements,  or 

3.  Be  contained  in  records  which  lie  in  the  retrieval  path 
of  those  records  which  contain  items  %fhich  appear  ex- 
plicitly in  the  procedure's  LINE,  SORT,  LET,  and  PRINT 
statements . 

Some  examples  of  valid  and  invalid  QUERY  statement  condi- 
tionals are  shown  below.  The  data  base  being  queried  is  that 
shown  in  Illustration(s)  20.1,  20.2,  and  20.3. 


Example  1 


010  QUERY  PRC606/COMPADFO 

020  WHERE  COMPANY-INITIALS  - "ABC" 

030  PRINT  CN  PRINTER  COMPANY-INITIALS, 
040  COMPANY-NAME 
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20-13. 


This  is  a valid  QUERY  statement  conditional,  since  data 
item  COMPANY-INITIALS  appears  explicitly  in  the  pro- 
cedure body. 

Example  2 

010  QUERY  PRC606/COMPADFO 

020  WHERE  SITE-NUMBER  > 10  OR  106 

030  OR  255  OR  999 

040  PRINT  ON  PRINTER  SITE-DESIGNATION. 

This  is  a valid  QUERY  statement  conditional,  since  data 
item  SITE-NUMBER  appears  in  the  same  logical  record  as 
the  item  SITE -DESIGNATION , which  is  explicitly  mentioned 
in  a PRINT  statement. 

Example  3 

010  QUERY  PRC606/C0MPADF0 

020  WHERE  COMPANY-INITIALS  - "ABC" 

030  PRINT  ON  PRINTER  SITE-DESIGNATION 


This  is  a valid  QUERY  statement  conditional.  Although 
the  conditional  identifier  COMPANY- INITIALS  is  not  con- 
tained in  the  same  logical  record  as  SITE-DESIGNATION, 
logical  record  COMPANY-REC  must  be  retrieved  before  log- 
ical record  SITE-REC.  Thus,  identifier  COMPANY- INITIALS 
lies  in  a logical  record  that  is  in  the  retrieval  path 
of  the  logical  record  containing  SITE-DESIGNATION,  and 
is  legal  in  the  QUERY  conditional. 

Example  4 

010  QUERY  PRC606/COMPADFO 

020  WHERE  SITE -NUMBER  - 95 

030  PRINT  ON  PRINTER  COMPANY-NAME 

This  is  an  invalid  QUERY  statement  conditional. 
SITE-NUMBER  lies  in  logical  record  SITE-REC,  which  is 
not  in  the  retrieval  path  of  logical  record  COMPANY-REC, 
which  contains  the  explicitly  named  data  item 
COMPANY-NAME . 

This  rule  for  QUERY  conditionals  applies  to  all  data  bases, 
regardless  of  the  ADF  used  to  access  the  data  base.  For  ex- 
ample, assume  that  the  source  Application  Definition  File 
PRC606/COMPADFO  contained  the  following  entry  definition  only: 


U 
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DATA-BASE  IS  COMPANY-STRUCTURE  IN  PRC606/COMP-DIR 
ENTRY  ALL-RECS  IS  RECORD  COMPANY-REC 
AND  SITE-REC  VIA  COMPANY-SITE 
AND  SUPERVISORY-PERSONNEL-REC 

The  following  WWDMS  procedure  is  valid. 

010  INVOKE  PRC606/COMPADFO 

020  RETRIEVE  ALL-RECS  FROM  COMPANY-STRUCTURE 

030  WHERE  SUPERVISOR-NAME  CONTAINS  "SMITH" 

040  PRINT  ON  PRINTER  SITE-DESIGNATION 
050  END 

Consider  the  following  QUERY  procedure. 

010  QUERY  PRC606/COMPADFO 

020  WHERE  SUPERVISOR-NAME  CONTAINS  "SMITH" 

030  PRINT  ON  PRINTER  SITE -DESIGNATION 
040  END 

At  first  glance,  it  would  appear  that  the  above  procedure  is 
valid,  since  only  one  entry  exists  in  the  ADF  being  invoked, 
and  the  QUERY  procedure  must  use  that  three-level  hierarchi- 
cal entry  as  it  retrieves'  data  from  the  data  file.  Neverthe- 
less, an  attempt  to  run  this  procedure  would  produce  unex- 
pected results. 


20-14.  PRINT  statement. 

The  QUERY  procedure  PRINT  statement,  like  its  WWDMS  counter- 
part, causes  the  displaying  of  one  or  more  lines  of  a re- 
port. However,  several  syntactical  and  functional  differ- 
ences do  exist  between  the  QUERY  and  WWDMS  PRINT  statements. 

There  are  three  forms  of  the  QUERY  Procedure  PRINT  statement: 

1.  PRINT  ON... 

2.  PRINT  label  , label... 

3.  PRINT  report-name 

You  are  already  familiar  with  the  WWDMS  versions  of  the  PRINT 
ON...  and  PRINT  label  statements.  The  PRINT  report-name 
statement  is  not  valid  in  a WWDMS  procedure;  it  is  unique  to 
QUERY. 
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In  the  frames  that  follow,  we  will  discuss  the  syntax  and 
function  of  the  most  basic  forti  of  the  PRINT  statement,  the 
PRINT  ON...  statement.  The  PRINT  label  and  PRINT  report- 
name  statements  are  used  in  the  generation  of  more  sophisti- 
cated reports  and  will  be  discussed  in  the  context  of  the 
REPORT  statement. 

20-15.  The  QUERY  procedure  PRINT  ON.  . . statement  has  the  following 
format: 


[ON 


PRINT 


r PRINTER 


!DUP 

DUPLICATE 


iPUP 
DUPLICATE  j 


REMOTE  id  [ < ^ n 


iDUP  \ 

[n].  . .] 
DUPLICATE  ) 


FILE  catalog/file-string  [,  catalog/file-string] 


[ FOR 


TTY 

CRT 

PRINTER  [ IN  BCD] 


terminal-name 


DAC 

[ see  IS  literal] 
report-elem-descr 


[,report-elem-descr]  ... 


This  is  nearly  exactly  the  same  as  the  format  of  the  WWDMS 
PRINT  ON...  statement,  which  was  discussed  in  Lessons  4 and 
11.  The  one  syntactical  difference  between  the  QUERY  PRINT 
ON. . . statement  and  its  WWDMS  counterpart  is  that  it  is  not 
possible  to  specify  an  entry  name  in  the  QUERY  PRINT  ON... 
statement.  Recall  from  Frame  20-2  that  entry  names  are  not 
valid  in  a QUERY  procedure. 


20-16.  Although  the  QUERY  and  WWDMS  PRINT  ON...  statements  are  used 
for  basically  the  same  purpose,  there  is  a slight  functional 
difference  between  the  two.  In  order  to  explain  this  differ- 
ence, it  is  necessary  to  introduce  at  this  time  the  concept 
of  record  availability. 
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Referencing  Illustrations  20.1,  20.2,  and  20.3,  consider  the 
following  QUERY  procedure: 

010  QUERY  PRC606/COMPADFO 

020  PRINT  ON  PRINTER  SITE-NUMBER,  SUPERVISOR-NAME, 

030  CLERICAL-NAME , TECHNICAL-NAME 

There  are  two  retrieval  paths  which  must  be  traversed  in 
order  to  obtain  the  items  referenced  by  the  PRINT  statement: 

1.  The  path  from  COMPANY-REC  to  SITE-REC  to 
SUPERVISORY-PERSONNEL-REC  to  CLERICAL-PERSONNEL-REC . 

2.  The  path  from  COMPANY-REC  to  SITE-REC  to 
SUPERVISORY-PERSONNEL-REC  to  lECHNICAL-PERSONNEL-REC . 

A QUERY  PRINT  ON.  . . statement  is  executed  each  time  the 
lowest  level  record  on  any  retrieval  path  has  been  re- 
trieved. A record  is  available  at  the  time  of  the  PRINT  if 
it  lies  on  the  retrieval  path  of  the  lowest  level  record  re- 
trieved. Data  items  in  records  which  are  not  available  at 
the  time  of  the  PRINT  are  displayed  as  absent  (blanks  for 
alphanumeric  items,  zeros  for  numeric  items). 

In  terms  of  our  procedure,  this  means: 


1.  The  PRINT  is  executed  each  time  a CLERICAL-PERSONNEL-REC 
record  or  TECHNICAL-PERSONNEL-REC  record  is  retrieved. 

2.  When  the  PRINT  is  executed  following  the  retrieval  of  a 
CLERICAL-PERSONNEL-REC  record,  TECHNICAL-PERSONNEL-REC 
is  not  available  and  data  item  TECHNICAL-NAME  is  dis- 
played as  blank. 

3.  Similarly,  when  the  PRINT  is  executed  after  a 
TECHNICAL-PERSONNEL-REC  record  has  been  retrieved, 
CLERICAL-PERSONNEL-REC  is  not  available  and  data  item 
CLERICAL-NAME  is  displayed  as  blank. 

Thus,  the  output  from  the  procedure  would  appear  as  follows: 


SITE-NUMBER  SUPERVISOR-NAME  CLERICAL-NAME  TECHNICAL-NAME 


001 

JOHN  A SMITH 

001 

JOHN  A SMITH 

00  J 

JOHN  A SMITH 

001 

WILLIAM  B WILLIAMS 

J B CHRISTENSEN 

R Q FAHNLANDER 
F X EARL 

M N JACKSON 
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001 

WILLIAM  B WILLIAMS 

B 

R 

ATLAND 

001 

WILLIAM  B WILLIAMS 

J 

R 

COOK 

001 

WILLIAM  B WILLIAMS 

T 

A 

ZELAND 

002 

CLARK  S KENT  D J BYRON 

002 

CLARK  S KENT 

T 

J 

KELLY 

002 

CLARK  S KENT 

T 

R 

ERICKSON 

20-17. 

Consider  the  following  procedure: 

010  QUERY  PRC606/COMPADFO 

020  PRINT  ON  PRINTER  SITE-DESIGNATION, 

030  SUPERVISOR-NAME,  CLERICAL-NAME, 

040  TYPING-SPEED-WPM,  TECHNICAL-NAME 

Which  one  of  the  five  data  items  referenced  in  the  PRINT 
statement  will  not  be  available  at  the  time  at  which  all  of  the 
other  four  items  are  available? 

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

TECHNICAL-NAME. 

The  items  SITE- T'ESIGNATION  and  SUPERVISOR-NAME  will 
always  be  available,  since  the  records  in  which  they  are 
contained  lie  in  the  retrieval  path  of  both 
CLERICAL-PERSONNEL-REC  (which  Contains  the  items 
CLERICAL-NAME  and  TYPING-SPEED-WPM)  and 
TECHNICAL-PERSONNEL- REC  (which  contains  the  item 
TECHNICAL-NAME). 

When  the  PRINT  is  executed  following  tfie  retrieval  of  a 
TECHNICAL-PERSONNEL-REC  record,  the  items  CLERICAL-NAME 
and  TYPING-SPEED-WPM  will  not  be  available. 

When  the  PRINT  is  executed  following  the  retrieval  of  a 
CLERICAL-PERSONNEL-REC  record,  only  the  item 
TECHNICAL-NAME  will  not  be  available. 


20-18.  Consider  the  following  procedure:  ' 

010  QUERY  PRC606/COMPADFO 

020  PRINT  ON  PRINTER  COMPANY-NAME, 

030  SITE-DESIGNATION,  SUPERVISOR-NAME. 

How  many  retrieval  paths  must  be  traversed  in  order  to  obtain 
the  items  referenced  by  the  PRINT  statement?  Name  them. 
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Only  one  retrieval  path  - the  path  from  COMPANY-REC  to 
SITE-REC  to  SUPERVISORY-PERSONNEL-REC . 


'i 

y, 

i 

I 


••••••••••••••••a 


••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••a 


20-19.  Using  the  procedure  from  the  previous  frame,  fill  in  the  blank 
in  the  following  statement: 

The  PRINT  statement  will  be  executed  following  each  re- 
trieval of  a record. 


SUPERVISORY-PERSONNEL-REC,  the  lowest  level  record  on  the  | 

retrieval  path.  J 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

20-20.  END  statement. 

When  used  in  a QUERY  procedure,  the  END  statement  functions  in 
the  same  manner  as  it  does  in  a WWDMS  procedure;  that  is,  it 
designates  the  physical  end  of  the  procedure. 


20-21.  List  the  statements  which  must  be  present  in  any  QUERY 
procedure . 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

The  QUERY  statement  and  the  PRINT  statement. 

Although  the  END  statement  is  not  required,  its  use  is 
highly  recommended.  If  it  is  not  found,  WWDMS  will  make 
its  own  decision  as  to  where  the  procedure  is  to  end. 

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••a 


20-22.  You  now  know  how  to  write  a basic  QUERY  procedure  consisting  of 
a QUERY  statement,  a PRINT  ON...  statement,  and  an  END  state- 
ment. In  the  frames  that  follow,  we  will  look  at  the  state- 
ments that  can  be  used  to  generate  more  sophisticated  reports: 
the  REPORT  statement,  the  LINE  and  SPACE  statements,  and  the 
other  forms  of  the  PRINT  statement. 
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20-23. 


REPORT  statement. 


The  QUERY  procedure  REPORT  statement  serves  the  same  funcion  as 
its  WWDMS  counterpart;  that  is,  it  is  used  to  specify  the 
format  and  layout  of  an  output  report.  The  format  of  the 
REPORT  statement  is  as  follows: 


REPORT  report-name 


[ON  \ 


{DUPLICATE 
PUP 


1 " 


{DUPLICATE 
PUP 


[.  idj 


i DUPLICATE 
DUP 


. 


FILE  catalog/file-string  [, catalog/ file-string . . 


] 


[for 

1 TTY 

1 ebt 

I'rTNTER  [ IN  BCD] 

' terminal-name 

^ ] 

DAC 

✓ 

[ see  IS  literal] 


i COLUMN  \ 

[ I S SPACING  IS  nn] 


COL 


[page  LENGTH  nnn  LINES ] 
r PAGE  WIDTH  nnn  CHARACTERS] 
f NUMBER  OF  PAGES  nnnnnn] 


r nnnnnn  - 

b ) 

L literal . 

‘ 1 

] 


r COVER  PAGE  IS  label  [.label]...] 

[page  heading  is  label  [,  label]...] 
r PAGE  FOOTING  is  label  [,  labei). . .] 

[CONTROL  HEADING  FOR  label-1  ^ label-2  [,label-n]  . . 


; i 
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BREAK  ON 


identifier-1  [, identifier-2] . . .CHANGE 
FIRST 


] 


[control  footing  for  label-3  IS  label-4  [,label-n] . . . 

identifier-3  [,  identifier-4] . . .CHANGE 
LAST 


BREAK  ON 


] 


The  QUERY  REPORT  statement  functions  in  exactly  the  same  man- 
ner as  its  WWDMS  counterpart,  with  the  following  exception: 
if  the  ON  clause  is  not  specified,  the  report  is  displayed  on 
the  user's  terminal. 

20-24.  A QUERY  report  body,  like  a WWDMS  report  body,  is  made  up  of 
one  or  more  report-packets.  Recall  from  Lesson  12  that  a 
report-packet,  by  definition,  consists  of  a labeled  LINE  or 
SPACE  statement  and  any  unlabeled  LINE  or  SPACE  statements 
that  immediately  follow  it. 

Those  report-packets  which  are  not  output  implicitly  (i.e., 
those  that  are  not  part  of  the  cover  page,  page  headings  or 
footings,  or  control  headings  or  footings)  are  called 
detail-line  sets  and  must  be  referenced  by  PRINT  label  or 
PRINT  report-name  statements. 

20-25.  PRINT  label  statement. 

The  PRINT  label  statement  is  used  to  specify  the  output  of  a 
given  detail-line  set.  The  QUERY  PRINT  label  statement  has 
the  same  format  as  its  WWDMS  counterpart,  to  which  you  were 
introduced  in  Lesson  12.  The  format  is: 


PRINT  label  , label 


20-26.  PRINT  report-name  statement. 

The  PRINT  report-name  statement  specifies  that  all  of  the 
detail-line  sets  defined  for  the  named  report-body  are  to  be 
displayed  at  the  appropriate  time.  The  format  of  this  type 
of  PRINT  stateswnt  is  as  follows: 

PRINT  report-name 
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The  PRINT  report-name  has  the  same  effect  as  a PRINT  label 
statement  which  references  all  of  the  detail-line  sets  in  the 
report  body.  Thus,  the  PRINT  statements  in  the  following  two 
procedures  are  equivalent. 


010 

QUERY 

020 

REPORT  R1 

030 

COVER  PAGE  IS  CVR-PG 

040 

PAGE  HEADING  IS 

PG-HDG . 

050 

PAGE  FOOTING  IS 

PG-FTG. 

060 

CVR-PG. 

070 

PG-HDG.  “ 

080 

PG-FTG .” 

090 

DTL-1 . 

100 

DTL-2.“ 

no 

DTL-3 . “ 

120 

PRINT  ’5TL-T,T)TL-2  , DTL-3  . 

130 

END 

010 

QUERY 

020 

REPORT  R1 

030 

COVER  PAGE  IS  CVR-PG. 

040 

PAGE  HEADING  IS 

PG-HDG. 

050 

PAGE  FOOTING  IS 

PG-FTG . 

060 

CVR-PG. 

070 

PG-HDG.  ” “ 

080 

PG-FTG. 

090 

DTL-1. 

100 

DTL-2 . 

110 

DTL-3 . . 

120 

PRINT  RT  ” / 

130 

END 

/ 

The  PRINT  report-name  statement  is  unique  to  QUERY  and  is  not 
valid  in  full  WWUMS  procedures. 


20-27.  There  is  a fundamental  difference  in  function  between  the 

WWDMS  PRINT  label  statement,  on  the  one  hand,  and  the  QUERY 
PRINT  label  and  PRINT  report-name  statements,  on  the  other. 

The  VfWDHS  PRINT  label  statement  is  executed  each  time  control 
passes  through  it.  With  each  such  execution,  all  of  the  re- 
port lines  which  are  contained  in  the  referenced  detail-line 
set  are  output. 

The  QUERY  PRINT  label  and  PRINT  report-name  statements,  on 
the  other  hand,  do  not  directly  cause  the  output  of  these  re- 
port lines,  but  merely  serve^  to  specify  which  lines  are  to  be 
output  at  the  appropriate  time.  The  time  at  which  a given 
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20-29. 


line  of  a detail-line  set  is  displayed  is  dependent  upon  the 
data  items  included  in  that  line.  Each  line  of  a detail-line 
set  is  treated  separately  and  may  or  may  not  be  displayed  at 
the  same  time  as  the  other  lines  contained  in  the  same 
detail-line  set. 

The  rules  regarding  the  output  for  report  lines  will  be  ex- 
plained in  the  following  frames  on  the  LINE  and  SPACE 
statements. 


LINE  statement. 

The  Link  statement  has  the  same  function  in  a QUERY  procedure 
as  it  does  in  a WWDMS  procedure:  to  specify  the  content  and 
format  of  a report  line. 

Recall  that  the  NWDMS  procedure  LINE  statement  has  the  fol- 
lowing format: 


i entry-name 


LINE  I 


report-elem-descr 


[ , report-elem-descr]. . . 


In  contrast,  the  QUERY  procedure  LINE  statement  has  the  fol- 
lowing format: 

LINE  report-elem-descr  [.report-elem-descr]... 

Note  that  it  is  not  possible  to  specify  an  entry  name  in  a 
QUERY  procedure  LINE  statement. 


LINE  statements  which  contain  data  items  are  displayed  in  the 
same  manner  as  PRINT  ON. .. statements ; that  is,  the  line  is 
displayed  each  time  the  lowest  level  record  on  any  retrieval 
path  has  been  retrieved.  Thus,  the  following  two  QUERY  pro- 
cedures will  result  in  the  display  of  the  same  detail  lines: 

010  QUERY  PRCbOe/COMPAOFO 

020  PRINT  ON  PRINTER  COMPANY-INITIALS, 

030  COMPANY-NAME,  SITE-DESIGNATION 

040  END 

010  QUERY  PRC606/COMPADFO 

020  REPORT  R1  ON  PRINTER 

030  DTL-1.  LINE  COMPANY-INITIALS, 

040  COMPANY-NAME,  SITE-DESIGNATION. 

050  PRINT  R1 
060  END 
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If  there  are  two  or  more  LINE  statements  which  contain  data 
items,  then  each  is  output  independent  of  the  other(s)  de- 
pending on  the  items  that  line  itself  contains.  As  an  ex- 
ample, consider  the  following  procedure: 

010  QUERY  PRC606/COMPADFO 

020  REPORT  R1  ON  PRINTER 

030  LI.  LINE  COMPANY-NAME,  PRESIDENT. 

040  LINE  SITE-DESIGNATION,  SITE-MANAGER. 

050  L2.  LINE  SUPERVISOR-NAME,  CLERICAL-NAME, 

060  TECHNICAL-NAME . 

070  PRINT  R1 
080  END 

The  LINE  statement  at  line  030  is  displayed  whenever  a new 
COMPANY-REC  record  is  retrieved. 

The  LINE  statement  at  line  040  is  displayed  whenever  a new 
SITE-REC  record  is  retrieved. 

The  LINE  statement  at  line  050  is  displayed  whenever  a new 
CLERICAL-PERSONNEL- REC  or  TECHNICAL-PERSONNEL-REC  record  is 
retrieved. 


20-31.  Several  additional  notes  on  the  procedure  in  the  preceding 
frame: 

1.  Note  that  the  LINE  statement  at  line  030  is  labeled. 

Any  LINE  statement  which  immediately  follows  a REPORT 
statement  must  be  labeled. 

2.  The  fact  that  the  LINE  statement  at  line  030  is  labeled 
and  the  one  at  line  040  is  not  labeled  is  irrelevant. 

All  LINE  statements  which  contain  data  items,  except  one 
that  is  the  first  LINE  statement  after  a REPORT  state- 
ment, may  or  may  not  be  labeled. 


20-32.  LINE  statements  which  do  not  contain  data  items  are  displayed 
according  to  the  following  rules: 

1.  If  the  statement  is  labeled,  then  it  is  executed  prior 
to  the  next  LINE  statement  in  the  same  detail-line  set 
that  contains  data  items. 

2.  If  the  statement  is  unlabeled,  then  it  is  executed  after 
the  last  preceding  LINE  statement  in  the  same  detail- 
line set  that  contains  data  items. 
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9 

1 


010 

QUERY  PRC606/COMPADFO 

020 

REPORT 

R1 

030 

DTL-1. 

LINE 

"THIS  IS  LINE 

A" 

040 

LINE 

COMPANY-INITIALS 

050 

COMPANY-NAME . 

060 

DTL-2 . 

LINE 

SITE-DESIGNATION 

070 

LINE 

"THIS  IS  LINE 

B" 

080 

PRINT  R1 

090 

END 

In  the  above  procedure,  the  line  reading  "THIS  IS  LINE  A" 
will  be  printed  before  each  display  of  the  line  containing 
the  items  COMPANY-INITIALS  and  COMPANY-NAME.  The  line  read- 
ing "THIS  IS  LINE  B"  will  be  printed  after  each  display  of 
the  line  containing  the  item  SITE -DESIGNATION . 


20-33.  SPACE  statement.  The  QUERY  procedure  SPACE  statement  has  the 
same  function  as  its  VfWDMS  counterpart:  to  control  slewing 
in  an  output  report.  The  format  is  also  the  same  and  is  re- 
peated below: 

inn 
TOP 

The  rules  for  the  display  of  SPACES  are  the  same  as  the  rules 
for  the  display  of  LINE  statements  that  do  not  contain  data 
i terns . 


20-34.  The  QUERY  Procedure  Language,  like  the  WHDMS  Procedure  Lan- 
guage, contains  a SORT  statement  which  allows  the  user  to 
order  data  prior  to  printing.  As  was  the  case  with  the  PRINT 
statement,  there  are  several  syntactical  and  functional  dif- 
ferences between  the  QUERY  SORT  statement  and  the  WVTOMS  SORT 
statement.  We  will  examine  the  syntactical  differences  first. 

20-35.  If  a SORT  statement  is  to  be  present  in  the  procedure,  it 

must  be  placed  after  any  report  bodies  but  before  any  PRINT 
statements  that  are  to  reference  the  sorted  data.  The  format 
of  the  SORT  statement  is  as  follows: 


SORT 


! report-name 
identifier 


[,  identifier]  . . .] 


ON  sort-key-l 


IASC 

ASCENDING 

use 

BRcending 


0R1»R  \ 

SEQUENCE  ; ] 


1] 

ij 
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IASC 

TtSCENDING 

DSC 

TSEScending 


There  are  three  basic  syntactical  differences  between  the 

QUERY  SORT  statement  and  the  WVTOMS  SORT  statement: 

1.  Only  one  SORT  statement  is  allowed  within  a QUERY 
procedure. 

2.  The  SORT  entry-name  statement  is  not  valid  in  a QUERY 
procedure. 

3.  The  SORT  report-name  statement  is  valid  in  QUERY,  but 
not  in  WWDMS . 


20-36.  Like  the  vniTOMS  SORT,  the  QUERY  SORT  consists  of  two  sub- 
phases. The  first  or  "hold"  subphase  writes  the  data  in- 
stances to  a temporary  file  in  sorted  order.  The  second  or 
"deferred"  subphase  delivers  the  sorted  data  instances  for 
subsequent  processing. 

What  exactly  do  these  "data  instances"  look  like?  That  de- 
pends on  the  type  of  SORT  statement  used.  We  will  differen- 
tiate among  the  three  types  of  SORT  statement  a little  later, 
but  for  now  you  should  simply  be  aware  that,  regardless  of 
the  type  of  SORT  statement  used,  each  data  instance  will  con- 
sist of: 

1.  All  of  the  sort-keys  specified  in  the  SORT  statement. 

2.  Some,  but  ordinarily  all,  of  the  identifiers  specified 
in  the  procedure's  LINE  and  PRINT  statements. 


20-37.  During  the  "hold"  subphase,  QUERY  retrieves  the  lowest  level 
record  along  each  retrieval  path,  as  if  it  were  developing  a 
standard  report.  Each  time  QUERY  has  retrieved  enough  infor- 
mation to  print  a new  report  line,  a data  instance  is  con- 
structed and  written  to  the  temporary  file. 

All  sort-keys  specified  in  the  SORT  statement  must  be  avail- 
able  at  each  time  at  *»Ri^  a data  instance  is  constructed. 
Those~Tdentifiers  wRich  appear  in  the  procedure ' s LINE  and 
PRINT  statements,  but  which  are  not  sort-keys  may  or  may  not 
be  available;  if  they  are  not  available  then  QUERY  will  mark 
them  as  such  in  the  sort  data  instance.  Examples  of  the  con- 
struction of  data  instances  are  shown  below. 


ORDER  \ 
SEQUENCE/]  •••] 
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Example  1 

010  QUERY  PRC606/COMPADFO 

020  SORT  ON  COMPANY-INITIALS 

030  PRINT  ON  PRINTER  COMPANY-NAME, 

040  SITE -MANAGER,  SUPERVISOR-NAME 

050  END 

A data  instance  will  be  constructed  each  time  that  QUERY 
has  retrieved  enough  information  to  construct  a print 
line;  that  is,  each  time  a new  SUPERVISORY-PERSONNEL-REC 
record  is  retrieved.  Since  the  sort-key  COMPANY-INITIALS 
is  always  available,  the  sort-key  rule  is  not  violated. 

Example  2 

010  QUERY  PRC606/COMPADFO 
020  REPORT  R1  ON  PRINTER 
030  LI.  LINE  COMPANY-NAME, 

040  PRESIDENT. 

050  L2.  LINE  SITE-DESIGNATION, 

060  SITE-MANAGER. 

070  SORT  Rl  ON  COMPANY-INITIALS 
080  PRINT  Rl 

A data  instance  will  be  constructed  under  either  of  the 
following  circumstances; 

1.  The  LINE  statement  at  line  030  is  satisfied;  that 
is,  each  time  a new  COMPANY-REC  record  is  retrieved. 

2.  The  LINE  statement  at  line  050  is  satisfied;  that 
is,  each  time  a new  SITE-REC  record  is  retrieved. 

Let's  step  through  our  procedure  to  see  exactly  what 
happens  after  each  retrieval.  Assume  that  our  data  base 
consists  of  the  following  records: 

RECORD  TYPE  COMPANY-INITIALS  COMP ANY -NAME  PRESIDENT  SITE-DESIGNATION  SITE-MANAGER 


COMPANY-REC  ABC  ABC  COMPANY  G.  WASHINGTON  

SITE-REC  WASHINGTON  JOHN  A SMITH 

SITE-REC  PENTAGON  W WILLIAMS 

COMPANY-REC  DEF  DEF  COMPANY  J ADAMS  

SITE-REC  RESTON  CLARK  S KENT 


Retrieval  of  the  first  COMPANY-REC  record  satisfies  the 
first  LINE  statement,  so  a data  instance  is  con- 
t atructed.  Since  items  SITE-DESIGNATION  and  SITE-MANAGER 


Addendum  B 


20-27 


are  not  yet  available,  they  are  marked  as  such  in  the 
data  instance.  Thus,  the  data  instance  would  appear  a^ 
follows : 

COMPANY-INITIALS  COMPANY-NAME  PRESIDENT  SITE-DESIGNATION  SITE-MANAGER 
ABC  ABC  COMPANY  G.  WASHINGTON  N/A  N/A 


The  next  record,  a SITE— REC  record,  is  then  retrieved. 

This  satisfies  the  second  LINE  statement,  so  another 
data  instance  is  constructed.  Note  that  all  items  are 
now  available.  The  data  instance  would  appear  as 
follows : 

COMPANY-INITIALS  COMPANY-NAME  PRESIDENT  SITE-DESIGNATION  SITE-MANAGER 

ABC  ABC  COMPANY  G.  WASHINGTON  WASHINGTON  JOHN  A SMITH 


Retrieval  of  the  next  record,  also  a SITE-REC  record, 
causes  the  following  data  instance  to  be  constructed. 

COMPANY-INITIAl^  COMPANY-NAME  PRESIDENT  SITE-DESIGNATION  SITE-MANAGER 
ABC  ABC  COMPANY  G.  WASHINGTON  PENTAGON  W WILLIAMS 


Retrieval  of  the  next  record,  a COMPANY-REC  record, 
causes  the  first  LINE  statement  to  be  satisfied.  The 
items  SITE-DESIGNATION  and  SITE-MANAGER  are  again  not 
available.  The  constructed  data  instance  would  appear 
as  follows: 


COMPANY-INITIALS  COMPANY-NAME  PRESIDENT  SITE-DESIGNATION  SITE-MANAGER 
DEF  DEF  COMPANY  J ADAMS  N/A  N/A 
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Finally,  retrieval  of  the  last  record,  a SITE-REC  rec- 
ord, causes  the  following  data  instance  to  be 
constructed. 

COMPANY-INITIALS  COMPANY-NAME  PRESIDENT  SITE-DESIGNATION  SITE-MANAGER 
DEF  DEF  company  J ADAMS  RESTON  CLARK  S KENT 


Note  again  that  since  the  sort-key,  COMPANY- INITIALS , is 
always  available  the  sort-key  rule  is  not  violated. 


Example  3 

010  QUERY  PRC606/COMPADFO 


020 

REPORT  R1  ON  PRINTER 

030 

LI. 

LINE  COMPANY-NAME, 

040 

PRESIDENT. 

050 

L2. 

LINE  SITE-DESIGNATION 

060 

SITE-MANAGER. 

070 

SORT 

R1  ON  SITE-NUMBER 

080 

PRINT  R1 

This  procedure  violates  the  sort-key  rule.  The  LINE 
statements  in  this  procedure  dictate  that  a data  in- 
stance be  constructed: 

1.  After  each  retrieval  of  a COMPANY-REC  record  (LINE 
statement  at  line  030  is  satisfied) 

2.  After  each  retrieval  of  a SITE-REC  record  (LINE 
statement  at  line  050  is  satisfied) 

Note  that  immediately  following  the  retrieval  of  a 
C(WPANY-REC  record,  however,  the  sort-key  SITE-NUMBER  is 
not  available.  Therefore,  the  SORT  statement  is  invalid. 

The  above  procedure  could  be  made  valid  by  adding  to  the 
LINE  statement  labeled  LI  a data  item  that  lies  in  the 
SITE-REC  record  or  in  subordinate  records.  This  will 
cause  the  construction  of  a data  entry  to  be  postponed 
until  a SITE-REC  record  has  been  retrieved. 


20-38.  Study  the  procedure  below  and  determine  whether  the  SORT 
statement  at  line  050  is  valid. 

i 
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010  QUERY  PRC606/COMPADFO 

020  REPORT  R1  ON  PRINTER  ! 

030  LI.  LINE  COMPANY-NAME,  PRESIDENT, 

040  SITE -MANAGER. 

050  SORT  R1  ON  SITE-NUMBER 
060  PRINT  R1 


YES.  It  is  valid.  Data  instance  construction  occurs 
following  retrieval  of  the  SITE-REC  record,  which  itself 
contains  the  sort-key  SITE-NUMBER.  Thus,  the  sort-key 
will  be  available  whenever  a data  instance  is  constucted. 


20-39.  Consider  the  following  procedure: 

010  QUERY  PRC606/COMPADFO 

020  REPORT  R1  ON  PRINTER 

030  LI.  LINE  COMPANY -NAME , PRESIDENT. 

040  L2.  LINE  SITE-DESIGNATION, 

050  SITE-MANAGER. 

060  SORT  R1  ON  COMPANY-INITIALS, 

070  SITE-MANAGER 

080  PRINT  R1 

Is  the  SORT  statement  in  this  procedure  valid? 

NO.  Data  instance  construction  occurs  at  the  following 
points : 

1.  After  each  retrieval  of  a COMPANY-REC  record  (LINE 
statement  at  line  030  is  satisfied). 

2.  After  each  retrieval  of  a SITE-REC  record  (LINE 
statement  at  line  040  is  satisfied). 

In  the  case  of  (1),  the  sort-key  SITE -MANAGER  is  not 
available. 


I 20-40.  Consider  the  following  procedure: 

! 010  QUERY  PRC606/COMPADFO 

I 020  SORT  ON  COMPANY- INITIALS , SITE-NUMBER, 

1 


I 

L 
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030  TYPING-SPEED-WPM 

040  PRINT  ON  PRINTER  SITE-DESIGNATION, 

050  SITE-MANAGER,  CLERICAL-NAME,  TECHNICAL-NAME 

060  END 


Is  the  SORT  statement  valid? 


NO.  Data  instance  construction  occurs  at  the  following 
points : 

1.  After  each  retrieval  of  a CLERICAL-PERSONNEL-REC 
record. 

2.  After  each  retrieval  of  a TECHNICAL-PERSONNEL-REC 
record. 

In  the  case  of  (2),  the  sort-key  TYPING-SPEED-WPM  is  not 
available . 

••••••••••••••••••••••••••aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


20-41.  You  should  now  have  a fairly  good  understanding  of  what  hap- 
pens during  the  first  or  "hold"  subphase  of  the  QUERY  SORT. 

During  the  "deferred  processing"  subphase,  the  sorted  data 
instances  are  retrieved  from  the  temporary  file.  For  each 
data  instance  retrieved,  the  appropriate  print  line(s)  are 
generated  based  on  which  data  items  are  marked  as  "available" 
in  the  data  instance. 


20-42.  We  will  now  discuss  the  three  types  of  SORT  statement.  The 
type  of  SORT  statement  used  determines  the  data  items  (other 
than  sort-keys)  that  are  to  comprise  each  data  instance. 
Ordinarily,  we  desire  that  the  data  instance  contain  all  of 
those  items  referenced  in  PRINT  and  LINE  statements,  in  ad- 
dition to  the  sort-keys. 


The  three  types  of  SORT  statement  are: 


1. 

The 

SORT 

ON...  statement 

2. 

The 

SORT 

report-name  ON . . 

. statement 

3. 

The 

SORT 

identifier  ON. . . 

statement 
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20-43. 


The  SORT  ON 


statement  has  the  following  format: 


SORT  ON  sort-key-l 


[IN 


ASC 

Ig^ENDING  , 

ISC 1 

descending, 


ORDER  \ 
SEQUENCE f J 


[,8ort-key-n 


[IN 


. ASC 

ASCENDING  (ORDER 
DSE  tsEQUENCE/1  .. 

descending 


The  SORT  ON...  statement  is  most  commonly  used  in  conjunction 
with  the  PRINT  ON...  statement.  It  specifies  that  each  data 
instance  is  to  consist  of  all  identifiers  referenced  in  a 
PRINT  statement,  in  addition  to  any  sort-keys  specifed  in  the 
SORT  statement.  The  sort-keys  may  be  specified  as  identi- 
fiers in  a PRINT  statement,  although  they  need  not  be. 


20-44.  The  second  form  of  the  QUERY  SORT  statement  is  the  SORT 
report-name  ON...  statement,  the  format  of  which  is  as 
follows: 


SORT  report-name 


ON  sort -key-1 


[IN 


ASC 

ISCENDING 

DSC 

descending 


ORDER  \ 
SEQUENCE)] 


[,8ort-key-n 


[IN 


ASC 

ISCending  /order 
DSC  ( SEQUENCE  ) ]. . 

descending 


This  form  of  the  SORT  statement  is  usually  used  in  conjunc- 
tion with  the  PRINT  label  and  PRINT  report-name  statements. 
It  specifies  that  each  data  instance  is  to  consist  of  all  of 
the  items  specified  in  the  report  body  of  the  named  report, 
as  well  as  the  sort-keys  specified  in  the  SORT  statement. 

The  sort -keys  may  also  appeat  in  the  report  body,  although 
this  is  not  required. 


20-45.  The  third  form  of  the  QUERY  SORT  statement  is  the  SORT  iden- 
tifier ON...  statement,  which  has  the  following  format: 
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20-46. 


20-47 . 


SORT  identifier  [.identifier]...] 

ASC 

XSCENDING 

ON  sort-key-l  ■ [iN  WC 

UESCENDINC 


i ORDER  i 
! SEQUENCE ! 


[,  8ort-key-n 


ASC  I 

AS?%NDING  ((ORDER 


URcending 


SEQUENCE 


}]...] 


When  this  form  is  used,  each  data  instance  will  consist  of 
all  of  the  identifiers  and  sort-keys  specified.  Each  sort- 
key  may  or  may  not  be  one  of  the  specified  identifiers. 


The  SORT  identifier  statement  is  not  used  as  much  as  the 
other  two  forms  of  the  SORT  statement,  and  it  has  less  flexi- 
bility (since  the  addition  of  another  data  item  to  a report 
may  necessitate  the  addition  of  that  item  to  the  list  of 
identifiers  in  the  SORT  statement).  One  use  for  the  SORT 
identifier  statement  is  the  case  in  which  multiple  REPORT 
statements  are  present  in  the  procedure  (since  the  SORT 
report-name  statement  can  reference  only  one  report  body). 


In  the  remaining  frames  of  this  Lesson,  we  will  complete  our 
discussion  of  QUERY  by  looking  at  the  statements  we  have  not 
yet  discussed.  These  are,  in  alphabetical  order:  COPY,  LET, 
LIBRARY,  and  OPTIONS  ARE. 


COPY  statement. 


The  COPY  statement,  when  used  in  a QUERY  procedure,  functions 
in  the  same  manner  as  it  does  in  a WWDMS  procedure.  It  is 
used  to  copy  source  text  from  a permanent  file  into  the  pro- 
cedure that  is  to  be  executed. 


The  format  of  the  COPY  statement  is: 


COPY  catalog/file-string  mmmm-nnnn 


where  catalog/file-string  identifies  a line-numbered 
ASCII  permanent  file,  and  imnmm  < nnnn  represent  an  in- 
clusive range  of  line  numbers  from  the  file  identified 
by  catalog/file-string,  which  is  to  be  copied  into  the 
Procedure  File. 


The  COPY  statement  will  be  discussed  further  in  Lesson  22. 
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20-48.  LET  statement. 

The  LET  statement,  when  used  in  a QUERY  procedure,  assigns  a 
value  to  a user-defined  variable  or  data  item  instance.  This 
is  the  same  function  that  the  LET  statement  serves  in  a WWDMS 
procedure. 


20-49.  The  format  of  the  QUERY  Procedure  LET  statement  is  as  follows: 

identifier 
literal 

arithmetic-expression 
numeric-constant 
figurative-constant 

Note  that  no  provision  is  made  for  subscripting  simple- 
identifier.  Recall  from  Frame  20-2  that  items  referenced  in 
a QUERY  procedure  cannot  be  subscripted. 

20-50.  The  statistical  functions  COUNT  and  SUM  cannot  be  used  in  a 
QUERY  procedure  LET  statement.  Thus,  while  the  expression 

LET  $SUMX  - $SUMX  * X 

is  legal,  the  expression 

LET  $SUMX  - SUM  X 

is  illegal. 


20-51.  A LET  statement  which  contains  data  items  is  executed  after 

each  retrieve  of  one  of  the  lowest  level  records  that  must  be 
retrieved  in  order  to  satisfy  the  specified  data  items. 

Those  data  items  which  are  not  available  at  the  time  of  exe- 
cution (because  they  lie  on  a different  retrieval  path)  are 
set  to  blanks  (for  alphanumeric  items)  or  zeroes  (for  numeric 
items)  prior  to  the  execution. 

20-52.  Ordinarily,  each  LET  statement  should  contain  at  least  one 
reference  to  a data  item.  A LET  statement  which  does  not 
contain  data  items  is  executed  only  once  - prior  to  the  re- 
trieval of  any  data.  For  example,  note  the  following 
procedure: 


LET  simple-identifier  [mask]  “ 
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010  QUERY  PRC  606/COMPADFO 

020  LET  $CNT  - $CNT  + 1 

030  PRINT  ON  PRINTER  $CNT  PIC  "ZZ9", 

040  COMPANY-NAME,  PRESIDENT 

050  END 

The  writer  of  this  procedure  had  intended  to  keep  a count  of 
the  number  of  COMPAITY-REC  records  retrieved.  Note,  however, 
how  the  LET  statement  at  line  020  works.  The  statement  is 
executed  prior  to  the  retrieval  of  any  data.  At  that  time, 
the  variable  $CNT  is  set  to  its  previous  value  (zero)  plus 
one,  or  one.  The  statement  is  never  executed  again.  There- 
fore , the  partial  output  f^rom  the  procedure  will  be  as 
follows : 


CNT 

1 

1 

1 


COMPANY-NAME 
ABC  COMPANY 
DEF  COMPANY 
GHI  COMPANY 


PRESIDENT 
G WASHINGTON 
J ADAMS 
T JEFFERSON 


Clearly,  this  output  is  not  as  the  user  had  intended.  What 
the  LET  statement  needs  is  a data  item  from  the  COMPANY-REC 
record  to  act  as  a "trigger",  causing  the  LET  statement  to  be 
executed  each  time  a COMPANY-REC  record  is  retrieved.  Note, 
however,  that  we  do  not  want  the  value  of  this  data  item  to 
have  any  bearing  on  the  result  o^  the  LET  statement.  See  if 
you  can  write  a LET  statement  that  will  accomplish  the  de- 
sired purpose  before  you  read  on. 


There  are  several  correct  LET  statements  which  could  be 
used.  Some  possible  solutions  are  as  follows: 

LET  $CNT  “ $CNT  + 1 + (COMP-SITE-NO  - COMP-SITE -NO) 

LET  $CNT  + $CNT  + 1 + (0  * COMP-SITE-NO) 

Note  that  the  data  item  used  as  a trigger  must  be  nu- 
meric, as  it  is  not  possible  to  perform  numeric  calcula- 
tions on  alphanumeric  items. 

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••a 


20-53.  Consider  the  following  procedure. 
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010  QUERY  PRC606/COMPADFO 
020  LET  

030  PRINTS  PRINTER  $CNT  PIC  "ZZZ9", 
040  COMPANY-NAME,  SITE -MANAGER 

050  END 


Which  of  Che  following  LET  statements  (a  through  e)  could  be 
used  at  line  020  Co  keep  a count  of  Che  number  of  SITE-REC 
records  retrieved?  (More  Chan  one  answer  may  be  correct.) 

a)  LET  $CNT  - $CNT  + 1 

b)  LET  $CNT  - $CNT  + 1 + (0  * COMP-SITE-NO) 

c)  LET  $CNT  - $CNT  + 1 + (SITE-NUMBER  - SITE-NUMBER) 

d)  LET  $CNT  - $CNT  + (SITF-SITE-NO/SITE-SITE-NO) 

e)  LET  $CNT  - $CNT  + 1 + (SITE -TYPE  - SITE-TYPE) 


c.  The  answer  is  c only. 


a.  Answer  is  incorrect  because  it  contains  no  data 
items  and  will  therefore  be  executed  only  once. 


b.  Answer  is  incorrect,  as  it  will  be  triggered  each 
time  a COMPANY-REC  record,  not  a SITE-REC  record,  is  re- 
trieved. 


d.  Answer  may  seem  at  first  to  be  correct.  However,  if 
SITE-SITE-NO  ever  takes  on  a value  of  zero,  an  error 
will  occur. 


e.  Answer  is  incorrect  because  SITE -TYPE  is  an  alpha- 
numeric item  and  cannot  be  used  in  an  arithmetic 
expression. 


20-54.  LIBRARY  statement. 

The  QUERY  procedure  LIBRARY  statement  serves  the  same  func- 
tion as  its  WWDMS  counterpart;  that  is,  it  specifies  the  name 
of  the  library  from  which  user  subroutines  and  table  lookup 
routines  specified  in  the  procedure  are  to  be  selected. 

The  format  of  the  LIBRARY  statement  is: 
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i I 

% ^ 


LIBRARY  caCalog/f ile-string 

Note  that  there  is  no  difference  in  syntax  between  the  QUERY 
procedure  LIBRARY  statement  and  the  WWDMS  procedure  LIBRARY 
statement. 


I 20-55.  OPTIONS  ARE  statement 

I 

i The  QUERY  procedure  OPTIONS  ARE  statement  has  the  same  func- 

’ / tion  as  its  WWTOtS  counterpart:  to  specify  default  values  for 

; RUN  command  options  for  a procedure. 

I , The  format  of  the  QUERY  procedure  OPTIONS  ARE  statement  is  as 

I follows: 


' , OPTIONS  ARE  option-1,  option-2... 

I where : 


' RUN-ID 

m 

"xxxxxxxxxxxx" 

I 

nn 

URGENCY 

m 

1 

* 

J 

nnn 

TIME 

* 

1 

! 

nn 

option-n:*  \ 

CORE 

m 

> 

* 

nnnnnn 

LINES 

m 

* 

1 SCHEDULE 

There  is  one  additional  option  which  is  available  for  use  in 
WWDMS  procedures  but  not  in  QUERY  procedures.  This  is  the 
TEST  option,  which  is  used  to  invoke  the  test  mode  feature  of 
the  Honeywell  File  Management  Supervisor  so  that  data  base 
creation  and  update  will  be  performed  on  a temporary  system 
file  instead  of  an  actual  data  file.  Since  it  is  not  pos- 
sible to  create  or  update  data  bases  using  a QUERY  procedure, 
there  is  no  need  for  the  TEST  option  in  the  QUERY  procedure 
language. 


[ 
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The  RUN  command  options  will  be  discussed  further  in  Lesson 

22. 


20-56. 


TEST  - LESSON  20 


The  following  COUNTRY-FILE  data  structure  is  to  be  used  to 
answer  the  questions  in  this  test.  A partial  DDF  follows  the 
graphic  representation  of  the  structure.  Assume  that  a de- 
fault ADF  is  used  to  access  the  data  base. 


01  COUNTRY 

02  COUNTRY-NAME 
02  CAPITAL 
02  POPULATION 

01  POLITICAL-PARTY 
02  PARTY-NAME 
02  PARTY-LEADER 
02  PER-CENT-POP 


01  MILITARY 

02  CDR-IN-CHIEF 
02  MIL-NO-MEN 


Addendum  B 


20-38 


^ 0 


01 

ARMY 

02 

CHIEF-OF-STAFF 

02 

ARMY-NO-MEN 

01 

NAVY 

02 

CNO 

02 

NAVY-NO-MEN 

01  ETHNIC-GROUP  | 

02  GROUP-NAME 
02  GP-PERCENT 
02  LAtlGUAGE 

I 

( 

The  following  procedure  is  to  be  used  to  answer  questions  1 1 

and  2 : | 

010  QUERY  PRC606/COUNDAFO 

020  WHERE  POPULATION  GT  50000 

030  PRINT  ON  PRINTER  COUNTRY -NAME . PARTY-LEADER, 

040  CDR-IN-CHIEF , CHIEF-OF-STAFF , CNO 

050  END 

1.  Which  other  data  items  will  be  displayed  whenever  the 
item  CHIEF-OF-STAFF  is  displayed? 

2.  Choose  from  the  following  list  the  items  that  could  have 
been  used  in  the  conditional  expression  at  line  020. 

a . COUNTRY-NAME 

b.  MIL-NO-MEN 

c . GP-PERCENT 

d.  CAPITAL 

Refer  to  the  procedure  below  to  answer  questions  3 
through  5. 


► 


\ 

r 

♦ 


t 
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010 

QUERY  PRC606/C0UNDAF0 

020 

REPORT  R1  ON  PRINTER 

030 

TOTAL  PAGES 

040 

PAGE  HEADING  IS  PG-HDG 

050 

PAGE  FOOTING  IS  PG-PTG 

060 

PG-HDG.  LINE  "POLITICAL  AND  MILITARY  REPORT"  COL 

070 

SPACE  3. 

080 

LINE  "COUNTRY"  COL  5, 

"POLITICAL  PARTY" 

085 

COL  25, 

090 

"MILITARY  LEAMR" 

COL  45, 

095 

"SIZE  OF  ARMY"  COL  65, 

20-39 


100 

"SIZE  OF  NAVY"  COL  80. 

110 

SPACE  1. 

120 

PG-FTG 

. SPACE  2. 

130 

LINE  "PAGE"  COL  30,  ZPAGE -NUMBER,  "OF", 

140 

Ztotal-pages . 

150 

DTLl. 

LINE  COUNTRY-NAME  COL  5. 

160 

LINE  PARTY-NAME  COL  25. 

170 

DTL2. 

LINE  CDR-IN-CHIEF  COL  45,  ARMY-NO-MEN  COL  65 

180 

DTL3. 

LINE  NAVY-NO-MEN  COL  80. 

190 

LINE  "NAVY  SUBTOTAL:"  COL  45,  $TOTAL-NAVY. 

200 

DTL4. 

LINE  "ETHNIC  GP"  COL  100,  "PCT"  COL  115. 

210 

LINE  GROUP-NAME  COL  100,  GP-PERCENT  COL  110. 

220 

LET  $TOTAL-NAVY  « $TOTAL-NAVY  + NAVY-NO-MEN 

230 

PRINT 

R1 

240 

END 

3.  Complete  the  sentences  below  by  choosing  the  best 
answers  among  the  choices  in  parentheses. 

a.  The  LINE  statement  at  line  190  will  always  be  dis- 
played immediately  (before,  after)  the  LiNfi  state- 
ment at  line  (180,  200,  210). 

b.  The  LINE  statement  at  line  200  will  always  be  dis- 
played immediately  (before,  after)  the  LINE  state- 
ment at  line  IIHU,  190,  210) 

4.  TRUE  OR  FALSE: 


Since  lines  130  and  160  are  part  of  the  same  detail- 
line-set,  the  same  event  "triggers"  the  display  of  both 
of  these  lines;  line  150  first,  with  line  160  following 
immediately. 

5.  TRUE  OR  FALSE: 

If  we  were  to  remove  the  labels  from  the  LINE  statements 
at  lines  170  and  180  and  rerun  the  procedure,  the  output 
would  remain  unchanged. 

Refer  to  the  procedure  below  to  answer  question  6. 


010 

020 

030 

040 

050 

060 

080 

090 


QUERY  PRC606/COUNDAFO 
REPORT  R1  ON  PRINTER 

PAGE  HEADING  IS  PG-HDG 

PG-HDG.  LINE  "EXAMPLE  OF  USE  OF  QUERY  SORT"  COL  20 
SPACE  3. 

LINE  "COUNTRY"  COL  5,  "MILITARY  HEAD" 

COL  25.  SPACE  1. 

DTLl.  LINE  COUNTRY-NAME  COL  5,  CDR-IN-CHIEF  COL  25 
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5. 


TRUE.  All  LINE  statements  that  contain  data  items, 

Miether  they  are  labled  or  unlabeled,  are  displayed  fol- 
lowing retrieval  of  the  lowest  level  record  along  a re- 
trieval path  that  must  be  traversed  to  satisfy  the 
specified  data  items. 

6 a.  and  b.  Data  instances  are  constructed  at  the  follow- 
ing points: 

(1)  After  each  retrieval  of  a MILITARY  record  (satis- 
fies the  first  LINE  statement) 

(2)  After  each  retrieval  of  an  ARMY  record  (satisfies 
the  second  LINE  statement) 

(3)  After  each  retrieval  of  a NAVY  record  (satisfies 
the  third  LINE  statement) 

The  only  items  that  are  always  available  whenever  a data  in- 
stance is  to  be  constructed  are  those  that  lie  in  the  COUNTRY 
or  MILITARY  records. 

••••••••••••••••••••••••••#•••••••••••••••••••••••••••••••••••••••••••••• 


***  END  OF  LESSON  20  *** 
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